home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / groff / 1.19.1 / tmac / mm / 0.MT next >
Text File  |  2005-10-13  |  2KB  |  147 lines
  1. .\"------------
  2. .\" $Id: 0.MT,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
  3. .\" Cover sheet. Memorandum type 0-3 and "string".
  4. .\"------------
  5. .if !r Au .nr Au 1
  6. .nr cov*mt0-ind 1.1c
  7. .de cov@print-title
  8. .MOVE 4.8c 1.5c
  9. .S 8
  10. subject:
  11. .sp -1.1
  12. .S
  13. .PGFORM
  14. .ft \\*[@sdf_font]
  15. .ll 9c
  16. .fi
  17. .cov*title
  18. .ft
  19. .ll
  20. .nf
  21. .if d cov*title-charge-case \fBCharge Case \\*[cov*title-charge-case]\fP
  22. .if d cov*title-file-case \fBFile Case \\*[cov*title-file-case]\fP
  23. .fi
  24. ..
  25. .\"------------
  26. .de cov@print-authors
  27. .MOVE 5.7c 13.3c
  28. .nf
  29. .S 8
  30. \\$1:
  31. .br
  32. .S
  33. .sp -1
  34. .in 0.8c
  35. .ft \\*[@sdf_font]
  36. .nr cov*i 0 1
  37. .while \\n+[cov*i]<=\\n[cov*au] \{\
  38. .    cov@print-au1 \\n[cov*i] 1
  39. .    if \\n[Au] \{\
  40. .        cov@print-au2 \\n[cov*i] 3 4
  41. .        cov@print-au2 \\n[cov*i] 6 5
  42. .        cov@print-au1 \\n[cov*i] 7
  43. .        cov@print-au1 \\n[cov*i] 8
  44. .        cov@print-au1 \\n[cov*i] 9
  45. .    \}
  46. .    if \\n[cov*i]<\\n[cov*au] .SP 1
  47. .\}
  48. .ft
  49. .if r cov*mt-tm-max \{\
  50. .    SP 1
  51. .    nr cov*i 0 1
  52. .    ft \\*[@sdf_font]
  53. TM
  54. .    in 1.5c
  55. .    sp -1
  56. .    while \\n+[cov*i]<\\n[cov*mt-tm-max] \\*[cov*mt-tm!\\n[cov*i]]
  57. .    in
  58. .    ft
  59. .\}
  60. .fi
  61. .PGFORM
  62. ..
  63. .\"------------
  64. .\" index arg1
  65. .de cov@print-au1
  66. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] 
  67. ..
  68. .\"------------
  69. .de cov@print-au2
  70. .\" index arg1 arg2
  71. .if d cov*au!\\$1!\\$2 \\*[cov*au!\\$1!\\$2] \c
  72. .if \\$3=5 .if d cov*au!\\$1!\\$3 x\c
  73. .if d cov*au!\\$1!\\$3 \\*[cov*au!\\$1!\\$3]\c
  74. .br
  75. ..
  76. .\"------------
  77. .de cov@print-date
  78. .MOVE 4.8c 13.3c
  79. .S 8
  80. .nf
  81. \\$1:
  82. .br
  83. .S
  84. .sp -1
  85. .in 0.8c
  86. \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
  87. .br
  88. .fi
  89. .PGFORM
  90. ..
  91. .\"------------
  92. .de cov@print-firm
  93. .if d cov*firm \{\
  94. .    MOVE 2.8c 0 17.7c
  95. .    S 18
  96. .    rj 1
  97. \fB\\*[cov*firm]\fP
  98. .    S
  99. .    PGFORM
  100. .\}
  101. ..
  102. .\"------------
  103. .de cov@print-abstract
  104. .SP 3
  105. .if d cov*abstract \{\
  106. .    misc@ev-keep cov*ev
  107. .    if \\n[cov*abs-ind]>0 \{\
  108. .        in +\\n[cov*abs-ind]u
  109. .        ll -\\n[cov*abs-ind]u
  110. .    \}
  111. .    ce
  112. \fI\\$1\fP
  113. .    SP 1.5
  114. .    fi
  115. .    cov*abstract
  116. .    br
  117. .    ev
  118. .\}
  119. ..
  120. .\"-----------------
  121. .ds cov*mt0-txt!1 MEMORANDUM FOR FILE
  122. .ds cov*mt0-txt!2 PROGRAMMER'S NOTES
  123. .ds cov*mt0-txt!3 ENGINEER'S NOTES
  124. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  125. .\"
  126. .if !d cov*mt-printed \{\
  127. .    cov@print-firm
  128. .    cov@print-title subject
  129. .    cov@print-date date
  130. .    cov@print-authors from
  131. .    cov@print-abstract \\*[cov*abs-name]
  132. .    SP 3
  133. .    if (\*[cov*mt-type]>=1)&(\*[cov*mt-type]<=3) \{\
  134. .        ce
  135. \fI\*[cov*mt0-txt!\*[cov*mt-type]]\fP
  136. .        SP 1.5
  137. .    \}
  138. .    if \*[cov*mt-type]=6 \{\
  139. .        ce
  140. \fI\*[cov*mt-type-text]\fP
  141. .        SP 1.5
  142. .    \}
  143. .    pg@enable-top-trap
  144. .    pg@enable-trap
  145. .    ds cov*mt-printed
  146. .\}
  147.